lisp/vc/vc-git.el (vc-git-stash): Respect vc-dir marked files

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index ca457fb3d1e9850c781bb4feb66af17241639cac..03afce517091cd025798f0c34339fbce42255016 100644 (file)
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -1480,7 +1480,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]."
   (interactive "sStash name: ")
   (let ((root (vc-git-root default-directory)))
     (when root
-      (vc-git--call nil "stash" "save" name)
+      (apply #'vc-git--call nil "stash" "push" "-m" name (vc-dir-marked-files))
       (vc-resynch-buffer root t t))))
 
 (defvar vc-git-stash-read-history nil